home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Commo-Support / Disk-Archive / DepackIt! < prev    next >
Encoding:
Text File  |  2000-05-27  |  705 b   |  19 lines
  1. if not exists env:quickstarted
  2. Echo "Die CD ist nicht eingerichtet!*nBitte zuerst Quickstart ausführen!"
  3. wait 2
  4. quit
  5. endif
  6.  
  7. requestfile drawer "`list depackit! lformat=%F`" title "Bitte Archiv auswählen:"  pattern=#?.dms >env:filed
  8. setenv b `requeststring title "AmigaPlus (C)" body "Bitte Device eingeben, auf das entpackt werden soll (z.B. df0:)" string "DF0:" noquote`
  9. striptease env:filed env:c 1 2 start end >nil:
  10. set a `requestchoice "Amiga Plus (C)" "Entpacke jetzt $c nach $b" O.K. Abruch`
  11. if $a eq 1
  12. dms write $filed TO $b
  13. if not fail
  14. requestchoice "Amiga Plus (C)" "Entpacken erfolgreich!" "Juhu" >NIL:
  15. else
  16. requestchoice "Amiga Plus (C)" "Entpacken fehlgeschlagen!" "Och...." >NIL:
  17. endif
  18. endif
  19.